home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 36 / PC Gamer IT CD 36 2-2.iso / SSCDEMO / ShipMain / MIAW / shipInf2.dxr / 00011_general control.ls < prev    next >
Encoding:
Text File  |  1998-08-06  |  958 b   |  44 lines
  1. on closeWindow
  2.   hCloseBoxClick()
  3. end
  4.  
  5. on hCloseBoxClick
  6.   tell the stage
  7.     hClearShipInfoText()
  8.     hCloseShipInfoWindow()
  9.   end tell
  10. end
  11.  
  12. on hSendMemberNum aname
  13.   return the number of member aname
  14. end
  15.  
  16. on hDragMe
  17.   global oShipInfoWin
  18.   hDragWinRect(the pWinName of oShipInfoWin)
  19. end
  20.  
  21. on hDragWinRect theWindow
  22.   set theRect to the rect of window theWindow
  23.   set hOff to the stageLeft + the mouseH - getAt(theRect, 1)
  24.   set vOff to the stageTop + the mouseV - getAt(theRect, 2)
  25.   repeat while the stillDown
  26.     set mH to the mouseH
  27.     set mV to the mouseV
  28.     setAt(theRect, 1, the stageLeft + mH - hOff)
  29.     setAt(theRect, 2, the stageTop + mV - vOff)
  30.     setAt(theRect, 3, the stageRight + mH - hOff)
  31.     setAt(theRect, 4, the stageBottom + mV - vOff)
  32.     set the rect of window theWindow to theRect
  33.     tell the stage
  34.       updateStage()
  35.     end tell
  36.   end repeat
  37. end
  38.  
  39. on hflush
  40.   repeat with n = 37 to 116
  41.     put "." into field n
  42.   end repeat
  43. end
  44.